﻿Public Class clsAgvLog
    Public Function add(ip As String, agv As String, status As String, type As String) As Integer
        Dim szSql As String = String.Empty
        szSql &= "insert into agv.agv_log(ip,agv,status,type,update_time) "
        szSql &= " values (?,?,?,?,(SELECT CURRENT_TIMESTAMP(6)))"
        Return DBacs.ExecuteUpdateSql(szSql, -1, ip, agv, status, type)
    End Function
End Class
